sp             equ  $2000
pc             equ  $800
b_error        equ  $1000
a_error        equ  $1100
int_level1     equ  $1800
int_level2     equ  $1900
int_level3     equ  $1a00

int_level7     equ  $1e00

led            equ  $e003
slider         equ  $e005
graph          equ  $e007


N              equ  $0f




               org 0
resetvector    dc.l sp
               dc.l pc


               org $64
               dc.l int_level1
               dc.l int_level2
               dc.l int_level3


               org $7c
               dc.l int_level7




               org  pc


               andi  #$f8ff,sr
x1             move.b slider,graph
               bra  x1








               org  int_level1
               move.b #N,led
               rte


               org  int_level2
               move.l d0,-(a7)
               move.b led,d0
               rol.b  #1,d0
               move.b d0,led
               move.l (a7)+,d0
               rte


               org  int_level3
               move.l d0,-(a7)
               move.b led,d0
               ror.b  #1,d0
               move.b d0,led
               move.l (a7)+,d0
               rte


               org  int_level7
               rte












